home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2000-04_2000_CSW_Side_A.d64 / type text (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  594b  |  19 lines
  1. 100 rem type fuer c64+c128  stk  12/95
  2. 110 iffre(0)<>fre(1)then(NULL)15:rem fuer c128
  3. 120 fori=5120to5152:readx:pokei,x:next
  4. 125 input"[198]ilename";f$
  5. 130 print"[211][146]creen or [208][146]rinter? ";
  6. 140 geta$:ifa$<>"s"anda$<>"p"then140
  7. 150 printa$:d=3:ifa$="p"thend=4
  8. 160 print"[211]pace: pause, q: quit!"
  9. 170 open8,8,2,f$+",p,r":open4,d,7:rem 4,4,7 fuer drucker
  10. 180 get#8,a$,a$
  11. 190 ifa$=chr$(13)then240
  12. 200 sys5123:print#4
  13. 210 geta$:ifa$=""ora$="q"then230
  14. 220 geta$:ifa$=""then220
  15. 230 ifa$="q"then250
  16. 240 get#8,a$:ifa$<>"#"thenprint#4,a$;:goto190
  17. 250 close4:close8
  18. 260 data 32, 204, 255, 162, 8, 32, 198, 255, 32, 207, 255, 201, 13, 240, 15, 72, 32, 204, 255, 162, 4, 32, 201, 255, 104, 32, 210, 255, 144, 226, 76, 204, 255
  19.